home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
AVOGADRO
/
SCIDISCS
/
DISC1
/
WIMPPOLY
/
!WimpPoly
/
cde
/
WPolyCH
next >
Wrap
Text File
|
1991-12-04
|
887b
|
20 lines
PARAMETER (MAXSOL=160,MAXW=60,MAXHLP=25)
CHARACTER *80 NAME, DUAL
CHARACTER *64 FNAME
CHARACTER *80 SOLIDS,TITL3D
CHARACTER *22 TITLHP
CHARACTER *78 HELPTX
CHARACTER *20 VERS
CHARACTER *10 TITLNT
CHARACTER *4 NUMBER
COMMON/POLYCH/NAME,DUAL,FNAME,NUMBER,SOLIDS(MAXSOL),TITLNT,TITL3D,
1 TITLHP,HELPTX(MAXHLP),VERS
C NAME = polyhedron name DUAL = name of dual polyherdon
C FNAME = name of file to read NUMBER = no. in netlib list
C MAXSOL= max no. of SOLIDS in the list MAXW = max length of a name
C SOLIDS = numbers and names of solids
C TITLNT,TITL3D titles of window for Net and Solid window
C TITLHP TITLE FOR HELP WINDOW
C HELPTX displayed in Help window , maximum size MAXHLP
C VERS version number for INFO window in template